0 POKE53281,0
1 IFL=0THENL=1:LOAD"SCRAMBLE.49152",8,1
1010 REM SCRAMBLER / UNSCRAMBLER
1020 :
1021 REM CALL SCRAMBLER/UNSCRAMBLER
1022 REM ROUTINE WITH:
1023 REM  SYS 49152,0,K$,T$ (ENCODE)
1024 REM  SYS 49152,1,K$,T$ (DECODE)
1025 REM K$=KEYWORD  T$=TEXT STRING
1026 :
1030 POKE53272,23
1040 DIMTEXT$(20),KEY$(10)
1050 FORX=1TO10:READKEY$(X):NEXT
1060 FORX=1TO20:READTEXT$(X):NEXT
1070 PRINT"[147][211][195][210][193][205][194][204][197][210]"
1080 FORX=1TO20:PRINT""TEXT$(X):NEXT:GOSUB1410
1090 K=INT(RND(1)*10)+1:KEY$=KEY$(K)
1100 PRINT" [203][197][217][215][207][210][196]: [146]"KEY$
1110 FORX=1TO20
1120 SYS49152,0,KEY$,TEXT$(X)
1130 PRINT"[158]"TEXT$(X):NEXT:GOSUB1410
1140 PRINT"[158][213][206][211][195][210][193][205][194][204][197][196][146]          "
1150 FORX=1TO20
1160 SYS49152,1,KEY$,TEXT$(X)
1170 PRINT"[159]"TEXT$(X):NEXT:GOSUB1410:GOTO1070
1180 REM KEYS
1190 DATA DOG,CAT,ELEPHANT,COMPUTER,DISK DRIVE
1195 DATAAPRIL,AUTOMOBILE,TV,BOOK,KEY
1200 REM MESSAGES
1210 DATA"[212]HIS[160]IS[160]A[160]TEST.[160][212]HIS[160]IS[160]ONLY[160]A[160]TEST."
1220 DATA"[198]OUR[160]SCORE[160]AND[160]SEVEN[160]YEARS[160]AGO..."
1230 DATA "[201]F[160][201][160]OWNED[160][200]ELL[160]AND[160][212]EXAS,[160][201]'D[160]RENT[160]OUT"
1240 DATA"[212]EXAS[160]AND[160]LIVE[160]IN[160][200]ELL.[160][160][[208].[200].[160][211]HERIDAN]"
1250 DATA"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
1260 DATA"[195]ONDUCTOR,[160]WHEN[160]YOU[160]RECEIVE[160]A[160]FARE,"
1270 DATA"[208]UNCH[160]IN[160]THE[160]PRESENCE[160]OF[160]THE[160]PASSENJARE"
1280 DATA"[193][160]BLUE[160]TRIP[160]SLIP[160]FOR[160]AN[160]EIGHT-CENT[160]FARE"
1290 DATA"[193][160]BUFF[160]TRIP[160]SLIP[160]FOR[160]A[160]SIX-CENT[160]FARE,"
1300 DATA"[193][160]PINK[160]TRIP[160]SLIP[160]FOR[160]A[160]FIVE-CENT[160]FARE,"
1310 DATA"[208]UNCH[160]IN[160]THTE[160]PRESENCE[160]OF[160]THE[160]PASSENJARE"
1320 DATA"[208]UNCH,[160]BROTHER,[160]PUNCH[160]WITH[160]CARE."
1330 DATA"WHITE[158]YELLOWGREEN[159]CYAN[150]PINK"
1340 DATA"[206]OTHING[160]TICKLES[160]THAT[160]DOESN'T[160]PINCH."
1350 DATA"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][[205]ONTAIGNE]"
1360 DATA"[193]LWAYS[160]DO[160]RIGHT.[160][160][212]HAT[160]WILL[160]GRATIFY"
1370 DATA"SOME[160]PEOPLE,[160]AND[160]ASTONISH[160]THE[160]REST."
1380 DATA"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][[205]ARK[160][212]WAIN]"
1390 DATA"[206]O[160]PIETY[160]CAN[160]DELAY[160]THE[160]WRINKLES[160][[200]ORACE]"
1400 DATA"###[160][197]ND[160]OF[160][212]RANSMISSION[160]###"
1410 PRINT"[208]RESS [211][208][193][195][197][146] [194][193][210][146] TO CONTINUE  [[209]=[209]UIT]"
1420 POKE198,0:WAIT198,1:GETA$:IFA$<>" "ANDA$<>"Q"THEN1420
1425 IFA$="Q"THEN60000
1430 RETURN
60000 PRINT"[147]LOAD"CHR$(34)"SCRAMBLER"CHR$(34)",8":PRINT"RUN"
60002 POKE631,13:POKE632,13:POKE198,2:        END